home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap08 / howto05 / delphi10 / uniqkey / uniform.dfm / uniform.txt
Encoding:
Text File  |  1996-04-13  |  1.4 KB  |  65 lines
  1. object UniqKeyForm: TUniqKeyForm
  2.   Left = 285
  3.   Top = 182
  4.   Width = 505
  5.   Height = 300
  6.   Caption = 'UniqKeyForm'
  7.   Font.Color = clBlack
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object DBGrid1: TDBGrid
  15.     Left = 16
  16.     Top = 16
  17.     Width = 466
  18.     Height = 209
  19.     DataSource = BookDataSource
  20.     TabOrder = 0
  21.     TitleFont.Color = clBlack
  22.     TitleFont.Height = -11
  23.     TitleFont.Name = 'MS Sans Serif'
  24.     TitleFont.Style = []
  25.   end
  26.   object DBNavigator1: TDBNavigator
  27.     Left = 8
  28.     Top = 232
  29.     Width = 480
  30.     Height = 25
  31.     DataSource = BookDataSource
  32.     TabOrder = 1
  33.   end
  34.   object Database1: TDatabase
  35.     AliasName = 'CSHOWTO'
  36.     Connected = True
  37.     DatabaseName = 'SqlDatabase'
  38.     Params.Strings = (
  39.       'USER NAME=STENDON')
  40.     SessionName = 'Default'
  41.     Left = 40
  42.     Top = 48
  43.   end
  44.   object BookDataSource: TDataSource
  45.     DataSet = BookTable
  46.     Left = 72
  47.     Top = 48
  48.   end
  49.   object BookTable: TTable
  50.     Active = True
  51.     AfterInsert = BookTableAfterInsert
  52.     DatabaseName = 'SqlDatabase'
  53.     TableName = 'BOOKTABLE'
  54.     Left = 104
  55.     Top = 48
  56.   end
  57.   object NewBookIdStoredProc: TStoredProc
  58.     DatabaseName = 'SqlDatabase'
  59.     StoredProcName = 'NEWBOOKIDPROCEDURE'
  60.     Params.Data = {010001000C5448454E4557424F4F4B494402030400000000000000}
  61.     Left = 136
  62.     Top = 48
  63.   end
  64. end
  65.